use Wx;

#------------------------
 

# D:\Perl\site\bin\wxperl_demo.pl

my $app = Wx::SimpleApp->new;
my $frame = Wx::Frame->new( undef, -1, 'Hello, world!' );
$frame->Show;

$app->MainLoop;
